#!/boot/home/config/bin/perl -w

# Remove HTML tags from the selected text on KEdit with Perl.
# If there's no selection, nothing will be done.

open TMP, "$ENV{'TMPFILE'}";
while(<TMP>){
	s/<[^<]*>//g;
	print;
}
close TMP;